IP Chat - server

áááThe server side of the IPChat is essential for the creation of the network. The server basically opens a port on the person's computer who is serving chat. Users then connect to the server via the server's IP Address. The server has some very basic coding in it. it requires two dsSocket controls to work properly. This is basically what the coding looks like in the server:


Sub dsSocket1_AcceptSocketID As Integer)
dsSocket2.Socket = SocketID
dsSocket1.Close
End Sub


Sub dsSocket2_ReceiveReceiveData As String)
Text1 = Text1 & vbCrLf & ReceiveData
End Sub


Sub Command1_Click
dsSocket1.RemotePort = txtPort 'this is the port
dsSocket1.Listen 'sets the socket to listen to the port
End Sub


index